home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / t3_1 / xlib.lha / xlib / xws4.t < prev    next >
Text File  |  1990-06-01  |  14KB  |  298 lines
  1. (HERALD XWS4 (ENV TSYS (XLIB INTERFACE)))
  2.  
  3. (DEFINE-FOREIGN XQUERYTREE*
  4.                 ("XQueryTree" (IN REP/C-POINTER)
  5.                               (IN REP/INTEGER)
  6.                               (IN REP/EXTEND)
  7.                               (IN REP/EXTEND)
  8.                               (IN REP/EXTEND)
  9.                               (IN REP/EXTEND))
  10.                 REP/INTEGER)
  11. (DEFINE (XQUERYTREE DPY W)
  12.         (LET* ((DPY (CHK-DISPLAYP DPY))
  13.                (W W)
  14.                (ROOT (MAKE-BYTEV 4))
  15.                (PARENT (MAKE-BYTEV 4))
  16.                (CHILDREN (MAKE-BYTEV 4))
  17.                (NCHILDREN (MAKE-BYTEV 4))
  18.                (RETURN-VALUE (XQUERYTREE* DPY W ROOT PARENT CHILDREN NCHILDREN)))
  19.               (RETURN RETURN-VALUE
  20.                       (MREF-INTEGER ROOT 0)
  21.                       (MREF-INTEGER PARENT 0)
  22.                       (CONS 'UNSIGNEDAP (MREF-POINTER CHILDREN 0))
  23.                       (MREF-INTEGER NCHILDREN 0))))
  24. (DEFINE-FOREIGN XGETWINDOWATTRIBUTES*
  25.                 ("XGetWindowAttributes" (IN REP/C-POINTER)
  26.                                         (IN REP/INTEGER)
  27.                                         (IN REP/EXTEND))
  28.                 REP/INTEGER)
  29. (DEFINE (XGETWINDOWATTRIBUTES DPY W)
  30.         (LET* ((DPY (CHK-DISPLAYP DPY))
  31.                (W W)
  32.                (ATT (MAKE-BYTEV 92))
  33.                (RETURN-VALUE (XGETWINDOWATTRIBUTES* DPY W ATT)))
  34.               (RETURN RETURN-VALUE (CONS 'XWINDOWATTRIBUTESP ATT))))
  35. (DEFINE-FOREIGN XGETGEOMETRY*
  36.                 ("XGetGeometry" (IN REP/C-POINTER)
  37.                                 (IN REP/INTEGER)
  38.                                 (IN REP/EXTEND)
  39.                                 (IN REP/EXTEND)
  40.                                 (IN REP/EXTEND)
  41.                                 (IN REP/EXTEND)
  42.                                 (IN REP/EXTEND)
  43.                                 (IN REP/EXTEND)
  44.                                 (IN REP/EXTEND))
  45.                 REP/INTEGER)
  46. (DEFINE (XGETGEOMETRY DPY D)
  47.         (LET* ((DPY (CHK-DISPLAYP DPY))
  48.                (D D)
  49.                (ROOT (MAKE-BYTEV 4))
  50.                (X (MAKE-BYTEV 4))
  51.                (Y (MAKE-BYTEV 4))
  52.                (WIDTH (MAKE-BYTEV 4))
  53.                (HEIGHT (MAKE-BYTEV 4))
  54.                (BORDERWIDTH (MAKE-BYTEV 4))
  55.                (DEPTH (MAKE-BYTEV 4))
  56.                (RETURN-VALUE (XGETGEOMETRY* DPY
  57.                                             D
  58.                                             ROOT
  59.                                             X
  60.                                             Y
  61.                                             WIDTH
  62.                                             HEIGHT
  63.                                             BORDERWIDTH
  64.                                             DEPTH)))
  65.               (RETURN RETURN-VALUE
  66.                       (MREF-INTEGER ROOT 0)
  67.                       (MREF-INTEGER X 0)
  68.                       (MREF-INTEGER Y 0)
  69.                       (MREF-INTEGER WIDTH 0)
  70.                       (MREF-INTEGER HEIGHT 0)
  71.                       (MREF-INTEGER BORDERWIDTH 0)
  72.                       (MREF-INTEGER DEPTH 0))))
  73. (DEFINE-FOREIGN XQUERYPOINTER*
  74.                 ("XQueryPointer" (IN REP/C-POINTER)
  75.                                  (IN REP/INTEGER)
  76.                                  (IN REP/EXTEND)
  77.                                  (IN REP/EXTEND)
  78.                                  (IN REP/EXTEND)
  79.                                  (IN REP/EXTEND)
  80.                                  (IN REP/EXTEND)
  81.                                  (IN REP/EXTEND)
  82.                                  (IN REP/EXTEND))
  83.                 REP/INTEGER)
  84. (DEFINE (XQUERYPOINTER DPY W)
  85.         (LET* ((DPY (CHK-DISPLAYP DPY))
  86.                (W W)
  87.                (ROOT (MAKE-BYTEV 4))
  88.                (CHILD (MAKE-BYTEV 4))
  89.                (ROOT_X (MAKE-BYTEV 4))
  90.                (ROOT_Y (MAKE-BYTEV 4))
  91.                (WIN_X (MAKE-BYTEV 4))
  92.                (WIN_Y (MAKE-BYTEV 4))
  93.                (MASK (MAKE-BYTEV 4))
  94.                (RETURN-VALUE (XQUERYPOINTER* DPY
  95.                                              W
  96.                                              ROOT
  97.                                              CHILD
  98.                                              ROOT_X
  99.                                              ROOT_Y
  100.                                              WIN_X
  101.                                              WIN_Y
  102.                                              MASK)))
  103.               (RETURN RETURN-VALUE
  104.                       (MREF-INTEGER ROOT 0)
  105.                       (MREF-INTEGER CHILD 0)
  106.                       (MREF-INTEGER ROOT_X 0)
  107.                       (MREF-INTEGER ROOT_Y 0)
  108.                       (MREF-INTEGER WIN_X 0)
  109.                       (MREF-INTEGER WIN_Y 0)
  110.                       (MREF-INTEGER MASK 0))))
  111. (DEFINE-FOREIGN XINTERNATOM*
  112.                 ("XInternAtom" (IN REP/C-POINTER)
  113.                                (IN REP/STRING)
  114.                                (IN REP/INTEGER))
  115.                 REP/INTEGER)
  116. (DEFINE (XINTERNATOM DPY NAME ONLYIFEXISTS)
  117.         (LET* ((DPY (CHK-DISPLAYP DPY))
  118.                (NAME (IF (STRING? NAME)
  119.                          (STRING->ASCIZ! NAME)
  120.                          (ERROR "Argument is incorrect type: ~s" NAME)))
  121.                (ONLYIFEXISTS ONLYIFEXISTS)
  122.                (RETURN-VALUE (XINTERNATOM* DPY NAME ONLYIFEXISTS)))
  123.               RETURN-VALUE))
  124. (DEFINE-FOREIGN XGETATOMNAME*
  125.                 ("XGetAtomName" (IN REP/C-POINTER) (IN REP/INTEGER))
  126.                 REP/POINTER)
  127. (DEFINE (XGETATOMNAME DPY ATOM)
  128.         (LET* ((DPY (CHK-DISPLAYP DPY))
  129.                (ATOM ATOM)
  130.                (RETURN-VALUE (CONS 'CHARAP (XGETATOMNAME* DPY ATOM))))
  131.               RETURN-VALUE))
  132. (DEFINE-FOREIGN XGETWINDOWPROPERTY*
  133.                 ("XGetWindowProperty" (IN REP/C-POINTER)
  134.                                       (IN REP/INTEGER)
  135.                                       (IN REP/INTEGER)
  136.                                       (IN REP/INTEGER)
  137.                                       (IN REP/INTEGER)
  138.                                       (IN REP/INTEGER)
  139.                                       (IN REP/INTEGER)
  140.                                       (IN REP/EXTEND)
  141.                                       (IN REP/EXTEND)
  142.                                       (IN REP/EXTEND)
  143.                                       (IN REP/EXTEND)
  144.                                       (IN REP/EXTEND))
  145.                 REP/INTEGER)
  146. (DEFINE (XGETWINDOWPROPERTY DPY W PROPERTY OFFSET LENGTH DELETE REQ_TYPE)
  147.         (LET* ((DPY (CHK-DISPLAYP DPY))
  148.                (W W)
  149.                (PROPERTY PROPERTY)
  150.                (OFFSET OFFSET)
  151.                (LENGTH LENGTH)
  152.                (DELETE DELETE)
  153.                (REQ_TYPE REQ_TYPE)
  154.                (ACTUAL_TYPE (MAKE-BYTEV 4))
  155.                (ACTUAL_FORMAT (MAKE-BYTEV 4))
  156.                (NITEMS (MAKE-BYTEV 4))
  157.                (BYTESAFTER (MAKE-BYTEV 4))
  158.                (PROP (MAKE-BYTEV 4))
  159.                (RETURN-VALUE (XGETWINDOWPROPERTY* DPY
  160.                                                   W
  161.                                                   PROPERTY
  162.                                                   OFFSET
  163.                                                   LENGTH
  164.                                                   DELETE
  165.                                                   REQ_TYPE
  166.                                                   ACTUAL_TYPE
  167.                                                   ACTUAL_FORMAT
  168.                                                   NITEMS
  169.                                                   BYTESAFTER
  170.                                                   PROP)))
  171.               (RETURN RETURN-VALUE
  172.                       (MREF-INTEGER ACTUAL_TYPE 0)
  173.                       (MREF-INTEGER ACTUAL_FORMAT 0)
  174.                       (MREF-INTEGER NITEMS 0)
  175.                       (MREF-INTEGER BYTESAFTER 0)
  176.                       (CONS 'CHARAP (MREF-POINTER PROP 0)))))
  177. (DEFINE-FOREIGN XLISTPROPERTIES*
  178.                 ("XListProperties" (IN REP/C-POINTER)
  179.                                    (IN REP/INTEGER)
  180.                                    (IN REP/EXTEND))
  181.                 REP/POINTER)
  182. (DEFINE (XLISTPROPERTIES DPY W)
  183.         (LET* ((DPY (CHK-DISPLAYP DPY))
  184.                (W W)
  185.                (NUM_PROP (MAKE-BYTEV 4))
  186.                (RETURN-VALUE (CONS 'UNSIGNEDAP
  187.                                    (XLISTPROPERTIES* DPY W NUM_PROP))))
  188.               (RETURN RETURN-VALUE (MREF-INTEGER NUM_PROP 0))))
  189. (DEFINE-FOREIGN XCHANGEPROPERTY*
  190.                 ("XChangeProperty" (IN REP/C-POINTER)
  191.                                    (IN REP/INTEGER)
  192.                                    (IN REP/INTEGER)
  193.                                    (IN REP/INTEGER)
  194.                                    (IN REP/INTEGER)
  195.                                    (IN REP/INTEGER)
  196.                                    (IN REP/C-POINTER)
  197.                                    (IN REP/INTEGER))
  198.                 IGNORE)
  199. (DEFINE (XCHANGEPROPERTY DPY W PROPERTY TYPE FORMAT MODE DATA NELEMENTS)
  200.         (LET* ((DPY (CHK-DISPLAYP DPY))
  201.                (W W)
  202.                (PROPERTY PROPERTY)
  203.                (TYPE TYPE)
  204.                (FORMAT FORMAT)
  205.                (MODE MODE)
  206.                (DATA (CHK-CHARAP DATA))
  207.                (NELEMENTS NELEMENTS)
  208.                (RETURN-VALUE (BLOCK (XCHANGEPROPERTY* DPY
  209.                                                       W
  210.                                                       PROPERTY
  211.                                                       TYPE
  212.                                                       FORMAT
  213.                                                       MODE
  214.                                                       DATA
  215.                                                       NELEMENTS)
  216.                                     '())))
  217.               RETURN-VALUE))
  218. (DEFINE-FOREIGN XROTATEWINDOWPROPERTIES*
  219.                 ("XRotateWindowProperties" (IN REP/C-POINTER)
  220.                                            (IN REP/INTEGER)
  221.                                            (IN REP/C-POINTER)
  222.                                            (IN REP/INTEGER)
  223.                                            (IN REP/INTEGER))
  224.                 IGNORE)
  225. (DEFINE (XROTATEWINDOWPROPERTIES DPY W PROPERTIES NPROPS NPOSITIONS)
  226.         (LET* ((DPY (CHK-DISPLAYP DPY))
  227.                (W W)
  228.                (PROPERTIES (CHK-UNSIGNEDAP PROPERTIES))
  229.                (NPROPS NPROPS)
  230.                (NPOSITIONS NPOSITIONS)
  231.                (RETURN-VALUE (BLOCK (XROTATEWINDOWPROPERTIES* DPY
  232.                                                               W
  233.                                                               PROPERTIES
  234.                                                               NPROPS
  235.                                                               NPOSITIONS)
  236.                                     '())))
  237.               RETURN-VALUE))
  238. (DEFINE-FOREIGN XDELETEPROPERTY*
  239.                 ("XDeleteProperty" (IN REP/C-POINTER)
  240.                                    (IN REP/INTEGER)
  241.                                    (IN REP/INTEGER))
  242.                 IGNORE)
  243. (DEFINE (XDELETEPROPERTY DPY WINDOW PROPERTY)
  244.         (LET* ((DPY (CHK-DISPLAYP DPY))
  245.                (WINDOW WINDOW)
  246.                (PROPERTY PROPERTY)
  247.                (RETURN-VALUE (BLOCK (XDELETEPROPERTY* DPY WINDOW PROPERTY)
  248.                                     '())))
  249.               RETURN-VALUE))
  250. (DEFINE-FOREIGN XSETSELECTIONOWNER*
  251.                 ("XSetSelectionOwner" (IN REP/C-POINTER)
  252.                                       (IN REP/INTEGER)
  253.                                       (IN REP/INTEGER)
  254.                                       (IN REP/INTEGER))
  255.                 IGNORE)
  256. (DEFINE (XSETSELECTIONOWNER DPY SELECTION OWNER TIME)
  257.         (LET* ((DPY (CHK-DISPLAYP DPY))
  258.                (SELECTION SELECTION)
  259.                (OWNER OWNER)
  260.                (TIME TIME)
  261.                (RETURN-VALUE (BLOCK (XSETSELECTIONOWNER* DPY
  262.                                                          SELECTION
  263.                                                          OWNER
  264.                                                          TIME)
  265.                                     '())))
  266.               RETURN-VALUE))
  267. (DEFINE-FOREIGN XGETSELECTIONOWNER*
  268.                 ("XGetSelectionOwner" (IN REP/C-POINTER) (IN REP/INTEGER))
  269.                 REP/INTEGER)
  270. (DEFINE (XGETSELECTIONOWNER DPY SELECTION)
  271.         (LET* ((DPY (CHK-DISPLAYP DPY))
  272.                (SELECTION SELECTION)
  273.                (RETURN-VALUE (XGETSELECTIONOWNER* DPY SELECTION)))
  274.               RETURN-VALUE))
  275. (DEFINE-FOREIGN XCONVERTSELECTION*
  276.                 ("XConvertSelection" (IN REP/C-POINTER)
  277.                                      (IN REP/INTEGER)
  278.                                      (IN REP/INTEGER)
  279.                                      (IN REP/INTEGER)
  280.                                      (IN REP/INTEGER)
  281.                                      (IN REP/INTEGER))
  282.                 IGNORE)
  283. (DEFINE (XCONVERTSELECTION DPY SELECTION TARGET PROPERTY REQUESTOR TIME)
  284.         (LET* ((DPY (CHK-DISPLAYP DPY))
  285.                (SELECTION SELECTION)
  286.                (TARGET TARGET)
  287.                (PROPERTY PROPERTY)
  288.                (REQUESTOR REQUESTOR)
  289.                (TIME TIME)
  290.                (RETURN-VALUE (BLOCK (XCONVERTSELECTION* DPY
  291.                                                         SELECTION
  292.                                                         TARGET
  293.                                                         PROPERTY
  294.                                                         REQUESTOR
  295.                                                         TIME)
  296.                                     '())))
  297.               RETURN-VALUE))
  298.